0 REM ADDRESS:
1 REM MANUEL NICKSCHAS
2 REM PAUL-HINDEMITH-STR. 3/1
3 REM D-78647 TROSSINGEN
4 REM GERMANY
5 ONXGOTO90,100
10 PRINT"[147][159]";:POKE53280,0:POKE53281,0:PRINTCHR$(14)
12 PRINT"[147][214]IRTUAL[193]SS [214]2.53 [196]EMOVERSION BY [211]PUTNICK"
13 PRINT" 8-[194]IT-[214]ERSION, [210][197][213] REQUIRED (MIN.256[203])"
14 PRINT"  [196]ESIGN BASED ON [212]URBO-[193]SS BY [207]MIKRON"
20 D=PEEK(186)
30 R=57088:A=0:POKER,0:IFPEEK(R)=0THEN70
40 FORV=2TO5:POKE(R+V),V:NEXT
50 A=1:FORV=2TO5:IFPEEK(R+V)<>VTHENA=0
60 NEXT
70 IFA=1THEN80
75 PRINT"[158][210][193][205] [197]XPANSION [213]NIT NOT PRESENT!!":POKE198,0:WAIT198,1:SYS64738
80 PRINT:PRINT"[194]OOTING..."
90 X=2:LOAD"VASS V2.53R*",D,1
100 SYS4096